home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / ERRORAML.AML < prev    next >
Text File  |  1996-07-17  |  2KB  |  51 lines
  1. //--------------------------------------------------------------------
  2. // ERRORAML.AML
  3. // Return AML Compiler Error Message, (C) 1993-1996 by nuText Systems
  4. //
  5. // This macro returns an AML compiler error message for an error code
  6. // passed as arg 3.
  7. //
  8. // Usage:
  9. //
  10. // This macro is intended for use as a utility by other macros, not as a
  11. // standalone macro. Erroraml is used by Ext.aml when compiling macros.
  12. //--------------------------------------------------------------------
  13.  
  14. error = arg 3
  15. case error
  16.   when 1001  "Can't open file"
  17.   when 1002, 1003  "Read error"
  18.   when 1004  "Not an executable macro file or incorrect version"
  19.   when 1031  "Write error"
  20.   when 1032  "Can't open compiler output file"
  21.   when 1101  "No closing quote"
  22.   when 1102  "No closing bracket"
  23.   when 1103  "Invalid symbol"
  24.   when 1104  "Invalid key or event"
  25.   when 1301  "No terminator"
  26.   when 1302  "Unexpected end of source"
  27.   when 1303  "No closing parenthesis"
  28.   when 1310  "Unexpected identifier"
  29.   when 1311  "Unexpected terminator"
  30.   when 1312  "Unexpected function"
  31.   when 1313  "Unexpected operator"
  32.   when 1314  "Unexpected keyword"
  33.   when 1315  "Invalid redefinition"
  34.   when 1318  "Invalid number"
  35.   when 1319  "Identifier '" + (geterror 's') + "' not defined"
  36.   when 1320  "Bad assignment"
  37.   when 1330  "Bad when clause"
  38.   when 1336  "Improperly placed break"
  39.   when 1337  "Invalid reference"
  40.   when 1501  "Can't open include file " + (geterror 's')
  41.   when 1502  "Include level exceeded"
  42.   when 1504  "Statement must be at top level"
  43.   when 1507  "Can't redefine builtin function"
  44.   when 1508  "Duplicated function argument"
  45.   when 1701  "Too many variables"
  46.   when 1703  "Function or expression too large"
  47.   when 1704, 1705, 1707, 1708   "Internal stack overflow"
  48.   when 1706  "Out of symbol space"
  49.   otherwise "Fatal compilation error " + error
  50. end
  51.